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CONOSCERE 

IL COMPUTER 
DIRETTAMENTE 
DAL COMPUTER 


CONOSCERE 
IL COMPUTER 
DIRETTAMENTE 
DAL COMPUTER 




CONOSCERE 
IL COMPUTER 
DIRETTAMENTE 
DAL COMPUTER 




Beatrice d’Este 


Beatrice d’Este 
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Nelle 30 lezioni del corso abbiamo visto tutte le istruzioni 
presenti nel Basic utilizzato dal Commodore 64. 

In queste 6 lezioni vedremo invece l'uso e l'applicazione 
di alcuni nuovi comandi creati con il linguaggio macchino 
Queste nuove istruzioni permettono di ampliare 
notevolmente il Basic standard. 


I vantaggi che ne derivano sono: 


una maggiore velocità di programmazione 

uno maggiore velocità di modifico e correzione 
del listato 

una più semplice ed efficace gestione della grafica 
e del suono 

un impiego minore di istruzioni per compiere 
uno stesso funzione 

lo possibilità di contenere contemporaneamente 
due programmi in memoria 

lo possibilità di ricercare istruzioni e stringhe Qll'interno 
di un listato 

e altri ancora. 
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Cominciamo, in questo lezione, con le istruzioni AUTO, 
DELETE, NUMDER e OLD che agiscono sui numeri di lineo 
di un programmo. 

Queste istruzioni potranno essere usate solo in modo 
diretto, cioè fuori dal listato del programma. 


AUTO: | 

permette di numerare automaticamente le linee 
del programma in fase di scritturo 


DELETE: | 

mette in condizione di poter cancellare un blocco intero 

di linee 



con questo istruzione tutte le linee di un programma 
potranno essere rinumerare (compresi tutti i salti presenti 

Quinterno) 



permette di recuperare dalla memoria un programmo 

cancellato in precedenza 


ND: ogni volto che si vorranno utilizzare le istruzioni 

occorrerà prima coricare il programmo HELP allegato. 
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PROGRAMMIAMO INSIEME (CDM 64) 

DATA BASE 1 Q PARTE 


100 

pok'e53230 ,3 : 

poKe 5328 1 ,9 





120 

pr intchr^C 142> "gfóEEl" 






200 

pr int ” 

QQ 

QQQ QQQ 

QQQ 

QQQ 

QQQ 

QQQ 

QQQ" 

210 

pr int " 

Q Q 

Q Q Q 

Q Q 

Q Q 

Q Q 

Q 

Q" 

220 

pr int " 

Q Q 

QQQ Q 

QQQ 

QQ 

QQQ 

QQQ 

QQ" 

230 

pr int " 

Q Q 

QQQ 

Q Q 

Q Q 

Q Q 

Q 

Q" 

240 

pr int " 

QQ 

Q Q Q 

Q Q 

QQQ 

Q Q 

QQQ 

QQQ" 

300 

pr inttab( 12) 

"fcfcfcfcfcfct'ro dotto 

dal laECI" 



420 

pr inttab <7> " 

a e a a n a a 

d a 

a a 

a : 

B srl a u 

500 

pr inttab(9)" 

EBHart i 

graf iche 

ricordi" 



900 

gety$: 

ify$=" 

"then900 






1000 printchr$<14)"989 DATA BASE: Creazione 

1020 x=4:y=8:gosub34000:pritrt "Creazione nuova gestione 
<S/N)?" 

1040 getyf 

1050 if <y$="s“>+<y$="S")then1030 
1060 i-f <yS= "n " ) + (y 0 = " N" )thenclr :d-f = l :goto 19020 
1070 goto 1040 

1080 x=4 :y = 14 :gosub34000: input"Nome della gestione";n$ 
1090 i-f (Ieri <n$)=0) + (len <n^) >16 >thengosub20000 : goto 1030 
1100 x=4 :y = 13 :gosub34000: input"Numero campi <l-20)";n 
1120 if<n<l) + (n >20>thengosub20000:goto1100 
1130 dimc$<n+l),t<n+l),l(n+l) 

1140 print"ST:x=0:y=4:gosub34000:print"NOME 
TIPO LUNGHEZZA" 

1200 -fork' = lton 

1500 input "^storne campo c$<k ) 

1520 if(len(c$(K'))=0) + (len(cf(K))> 10 >thengosub20000 : go 
to1500 
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1540 input " aSF 'Ju me r i c o - Alfanumerico <N/A)"Jt$ 

1560 if <t$< >"n ■ )*<t*K Va" >"N" >*<t*< >"A" )tf.sngosu 

b20000 ! goto 1540 

1600 if <t$="a"> + <t$="A">thent <K) = 1 
1620 pr int "9EE1" f 

1625 ift<K)=ltheninput“Numero caratteri <1-24 ) " ; 1<K ) 
1630 ift<K)=0theninput"Numero cifre (1-3)";1(K) 

1640 if<t<K)=l)*<<l<K X1 > + <l <K >>24))thengosub20000: 
goto 1620 

1650 if(t(K)=0)*((l(KKl) + (l(K)>9) ) thengosub20000 : 

goto 1620 

1660 sc=sc+l<K) 

1740 x =0 :y=K +4 :gosub34000:printc$<K); 

1760 x = 13 :y=K+4 :gosub34000 
1770 ift(K)=lthenprint"Alfanumerico"; 

1780 ift <K)=0thenprint"Numerico 
1800 x =28 : y =K +4 :gosub34000 sprinti <K ) ; 

2000 nextK 

2100 gosub23000:ifc=0thenrun 

2200 pr int"ai DATA BASE: Occupazione di memoria 
2220 tb=0:sc=sc+14:fr=26000 

2240 x=7:y=5 :gosub34000:print "Caratter i per record! "Jsc 

2400 tb=tb+sc + (n+2)*3:rc=rc + l! iftb <frthèn2400 

2500 x=7sy=8 :gosub34000:print"Numero record : " Jrc 

2600 foj?K = lto3000 : nextK 

2800 gosub22000 

2300 dimd$(n+l,rc) 

4000 rem *** menu* principale *** 

4820 pr int "ga DATA BASE! Menu' principale Si" 

4 100 pr int t ab <8 ) "EBNome gestione: ";n$ 

4200 pr intt ab <8 ) "allumerò record:" ; i 
4300 pr inttab <8 ) “EEEI1 - Inserimento” 

4400 printtab<3>”2 - Variazione" 

4500 printtab<8)"3 - Cancellazione" 

4600 printtab<3)”4 - Situazione generale" 

4700 printtab<8)"5 - Ricerca" 
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4800 printtab<8 ) "6 - Campo da totalizzare” 

4900 printtab<8) "7 - Stampa" 

5000 printtab<8)"8 - Ordinamento" 

5100 pr int t ab <8 ) "3 - Save / Load -file" 

5120 pr inttab <3 ) "3h- - Uscita programma' 

5200 printtab<12)"SEOBcelta <1-9)7" 

5300 getsf: ifs$= "<-"then 13000 
5400 it <s*<"1")+<s$>"9")then5300 

5500 onva1 (s$)gosubG000,7000,8000,9000,10000,12000,140 
00,16000,17000 
5600 goto4000 

6000 rem *** inserimento *** 

6010 ifi +1>=rcthengosub30000!return 

6020 i = i + 1 !pr int "3S DATA BASE! Inserimento codice "; 
6040 printri g h t $ <" "+str$(i),3);" 3" 

6100 -forK = lton 

6120 x =0 :y =K!gosub34000:printright$(str$<K),2); 

6130 i-ft <K )=0thenpr int " >"; 

6140 itt<K) = lthenprint 
6160 x =3 :y =K:gosub34000:printc$<K) 

6210 x = 13 : y =k' !gosub34000!inputd$<K,i) 

6220 h=i:gosub25000 

6240 itei=lthen6120 

6400 nextK:gosub26000sgosub22000 

6500 return 

13000 rem *** uscita programma **# 

13020 pr int "SEI DATA BASE! Uscita programma a* 

13040 gosub23000sifc=0then4000 
13060 pr int "^|" ! end 
20000 rem *** suono *** 

20020 si=54272 

20030 poKes i +24,15!poKes i + 1 , 15 : pok'es i+5,8!poKes i+6,8: 
poKesi+4,33 

20040 -forK9= lto200!nextK9 
20050 poKesi+4,32 ! return 
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22000 rem *** premi il return *** 

22020 x = 12 !y =24 :gosub34000:print"Premi il RETURN"; 

22040 ge-ty$: ify$< >chr$( 13 >then££040 
22060 return 

23000 rem #** conferma ♦ ** 

23020 x=2!y=£3 :gosub34000 :print"Confermi <S/N)7"; 

23040 getyf 

£3060 if <y*=”s")+<y$="S">thenc=l:goto23200 
£3080 if <y$=“n") + (y*="N")thenc=0 :goto23200 
23100 goto23040 

23200 x=2:y=23Jgosub34000sprint " ireturn 

25000 rem *** controllo inserimento *** 

£5020 iflenCd$(K,h))>l<K >thengosub20000: c i = l ! return 
25030 if<tCK)=0)*Cval(d^(K,h))<0)thencp$="":goto£5040 
25035 cp$=" " 

£5040 if <t <K )=0)*<cp^+d^<K ,h)Ostr$<val (df(K,h))))thengo 
sub 20000!ci = lsreturn 
25060 ci=0:return 

26000 rem *** totale record **# 

£6020 t =0 
£6040 forK=lton 

26060 ift <K ) =0thent =t+val <d3KK ,h > > 

26080 nextK 

26100 x=0:y=21Jgosub34000:print"Totale : ";t;" 

26110 ift<0thend^<n+l,h?=str$<t)!return 

26 120 <T$(n +1 ,h >=r ight$<str$<t ) , 1 en <str$<t ) > -1 ) 

£6200 return 

30000 rem *** fine memoria *** 

30020 print “a”;:x=2:y = 1 1:gosub34000 

30040 print"FINE MEMORIA, non puoi piu' inserire" 

30100 gosub2£000 
30200 return 

34000 x$=riqht3>(" MI>l>iillii>W>il> iÌi— H11BWWW 

34020 y$=l ef t$<; ",y +1 ) 

34040 printy$;x$;ireturn 
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